home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / fp10s.arc / RUNFD.BAT < prev   
Encoding:
DOS Batch File  |  1992-01-04  |  1.3 KB  |  54 lines
  1. @ECHO OFF
  2. if exist f:\pcboard.sys del f:\pcboard.sys >NUL
  3. :LOOP
  4. CLS
  5. M:
  6. cd\pcb\front
  7. fd 
  8.    if errorlevel 103 goto board
  9.    if errorlevel 102 goto board
  10.    if errorlevel 101 goto board
  11.  
  12.    rem ************* IMPORT MAIL
  13.    if errorlevel 70 goto mail_in
  14.  
  15.    rem ************* EXPORT MAIL
  16.    if errorlevel 60 goto mail_out
  17.  
  18.    rem ************* EXIT TO DOS
  19.    if errorlevel 10 goto end
  20. goto error
  21.  
  22. rem ********************************************************
  23. rem Human caller; pass to PCBoard
  24. :board
  25.    dobbs
  26.  
  27. rem ********************************************************
  28. rem Start event at hh:mm; prepare mail 
  29. rem PCBoard event (AdriaNet transfer, file list, statistics)
  30. :mail_out
  31.    cd fidopcb
  32.    fidopcb toss strip
  33.    rem Save statistics for this event
  34.    type ficopcb.sta >> all_stat
  35.    cd..
  36.    f:\fdevent.bat
  37.    goto loop
  38.  
  39. rem ********************************************************
  40. rem Mail received from Fidonet; convert to PCBoard
  41. :mos_in
  42.    cd fidopcb
  43.    fidopcb toss
  44.    rem Save statistics for this event
  45.    type fidopcb.sta >> all_stat
  46.    goto loop
  47.  
  48. rem ********************************************************
  49. rem Error has occured in FrontDoor
  50. :error
  51.    ECHO ERROR !!!!! >errors!.log
  52.    boot
  53. :end
  54.     ECHO The BBS is Down !!!